home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 March / PC Plus Super CD (Issue 101) (March 1995).iso / sharewar / vbaddon / vbfiles / fmenu.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-29  |  7.5 KB  |  255 lines
  1. VERSION 2.00
  2. Begin Form fmenu 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VideoSoft VSView Demo"
  6.    ClientHeight    =   4575
  7.    ClientLeft      =   525
  8.    ClientTop       =   1680
  9.    ClientWidth     =   8250
  10.    Height          =   5040
  11.    Left            =   435
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4575
  16.    ScaleWidth      =   8250
  17.    Top             =   1305
  18.    Width           =   8430
  19.    Begin vsDraw VSDraw1 
  20.       BackColor       =   &H00C0C0C0&
  21.       BrushStyle      =   1  'Transparent
  22.       FontBold        =   -1  'True
  23.       FontItalic      =   -1  'True
  24.       FontName        =   "Times New Roman"
  25.       FontSize        =   15.75
  26.       FontStrikethru  =   0   'False
  27.       FontUnderline   =   0   'False
  28.       Height          =   3090
  29.       Left            =   210
  30.       PenColor        =   &H0080FFFF&
  31.       PenWidth        =   1
  32.       ScaleHeight     =   200
  33.       ScaleWidth      =   200
  34.       TextColor       =   &H00FFFFFF&
  35.       Top             =   420
  36.       Width           =   3585
  37.    End
  38.    Begin CommandButton Command1 
  39.       BackColor       =   &H00C0C0C0&
  40.       Caption         =   "&MDI"
  41.       Height          =   495
  42.       Index           =   4
  43.       Left            =   6090
  44.       TabIndex        =   1
  45.       Top             =   2310
  46.       Width           =   1830
  47.    End
  48.    Begin CheckBox Check1 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "Custom Frame"
  51.       Height          =   225
  52.       Left            =   6090
  53.       TabIndex        =   9
  54.       Top             =   630
  55.       Width           =   1800
  56.    End
  57.    Begin CommandButton Command1 
  58.       BackColor       =   &H00C0C0C0&
  59.       Caption         =   "Visual &Printer"
  60.       Height          =   495
  61.       Index           =   9
  62.       Left            =   4095
  63.       TabIndex        =   8
  64.       Top             =   1680
  65.       Width           =   1830
  66.    End
  67.    Begin vsInForm VSInForm1 
  68.       BarColor        =   &H00C0C0C0&
  69.       BarColorInactive=   &H00C0C0C0&
  70.       BarHeight       =   36
  71.       BarStyle        =   3  'Raised
  72.       ButtonsLeft     =   0  '0
  73.       ButtonsRight    =   2  '2
  74.       CapAlign        =   1  'Left Center
  75.       CapColor        =   &H00C0C0C0&
  76.       CapColorInactive=   &H00C0C0C0&
  77.       CapMultiLine    =   -1  'True
  78.       CapStyle        =   1  'Raised
  79.       Caption         =   "  VideoSoft VSView"
  80.       ClipMon         =   -1  'True
  81.       FontBold        =   -1  'True
  82.       FontItalic      =   0   'False
  83.       FontName        =   "Arial"
  84.       FontSize        =   18
  85.       FontStrikethru  =   0   'False
  86.       FontUnderline   =   0   'False
  87.       FrameColor      =   &H00C0C0C0&
  88.       FrameColorInactive=   &H00C0C0C0&
  89.       FrameCorners    =   0   'False
  90.       FrameSizing     =   0  'None
  91.       FrameStyle      =   3  'Raised Form
  92.       FrameWidth      =   12
  93.       Left            =   4125
  94.       MinHeight       =   870
  95.       MinWidth        =   3500
  96.       PictRight0      =   FMENU.FRX:0000
  97.       PictRight1      =   FMENU.FRX:00D2
  98.       Top             =   585
  99.    End
  100.    Begin CommandButton Command1 
  101.       BackColor       =   &H00C0C0C0&
  102.       Caption         =   "&ViewPort"
  103.       Height          =   495
  104.       Index           =   8
  105.       Left            =   6090
  106.       TabIndex        =   7
  107.       Top             =   1050
  108.       Width           =   1830
  109.    End
  110.    Begin CommandButton Command1 
  111.       BackColor       =   &H00C0C0C0&
  112.       Caption         =   "&Easy printing"
  113.       Height          =   480
  114.       Index           =   7
  115.       Left            =   4095
  116.       TabIndex        =   6
  117.       Top             =   1050
  118.       Width           =   1830
  119.    End
  120.    Begin CommandButton Command1 
  121.       BackColor       =   &H00C0C0C0&
  122.       Caption         =   "&16 && 32"
  123.       Height          =   480
  124.       Index           =   6
  125.       Left            =   6090
  126.       TabIndex        =   5
  127.       Top             =   1680
  128.       Width           =   1830
  129.    End
  130.    Begin CommandButton Command1 
  131.       BackColor       =   &H00C0C0C0&
  132.       Caption         =   "Visual &Clipboard"
  133.       Height          =   495
  134.       Index           =   3
  135.       Left            =   4095
  136.       TabIndex        =   4
  137.       Top             =   2310
  138.       Width           =   1830
  139.    End
  140.    Begin CommandButton Command1 
  141.       BackColor       =   &H00C0C0C0&
  142.       Caption         =   "&Borders FX"
  143.       Height          =   495
  144.       Index           =   1
  145.       Left            =   6090
  146.       TabIndex        =   3
  147.       Top             =   2940
  148.       Width           =   1830
  149.    End
  150.    Begin CommandButton Command1 
  151.       BackColor       =   &H00C0C0C0&
  152.       Caption         =   "&Floating Controls"
  153.       Height          =   495
  154.       Index           =   0
  155.       Left            =   4095
  156.       TabIndex        =   2
  157.       Top             =   2940
  158.       Width           =   1830
  159.    End
  160.    Begin Shape Shape1 
  161.       BackColor       =   &H00404040&
  162.       FillColor       =   &H00404040&
  163.       FillStyle       =   0  'Solid
  164.       Height          =   3060
  165.       Left            =   315
  166.       Top             =   525
  167.       Width           =   3585
  168.    End
  169.    Begin Label Label1 
  170.       Alignment       =   2  'Center
  171.       BackStyle       =   0  'Transparent
  172.       Caption         =   "VideoSoft 2625 Alcatraz Avenue, Suite 271, Berkeley, CA 94705"
  173.       Height          =   255
  174.       Left            =   105
  175.       TabIndex        =   0
  176.       Top             =   3780
  177.       Width           =   7890
  178.    End
  179. Option Explicit
  180. ' ----------------------------------------------------
  181. '  Prototype:   Demo
  182. ' --------------------------------------------------
  183. Sub Check1_Click ()
  184.   VSInform1.CustomFrame = Not VSInform1.CustomFrame
  185. End Sub
  186. Sub command1_click (Index As Integer)
  187.   mousepointer = 11
  188.   Select Case Index
  189.     Case 0    'Toolbox
  190.       ftoolbox.Show
  191.     Case 1    'Border FX
  192.       fFx.Show
  193.     Case 3    'Visual Clipboard
  194.       fclipbrd.Show
  195.     Case 4    'MDI
  196.       Child3.Show
  197.       Child2.Show
  198.       Child1.Show
  199.     Case 6    ' 16 & 32 bits
  200.       ffuture.Show
  201.     Case 7    ' EZ Printing
  202.       fEZPrint.Show 1
  203.     Case 8    ' ViewPort
  204.       fviewport.Show
  205.     Case 9    ' Visual Printer
  206.       fdesk.Show
  207.     Case Else
  208.       MsgBox "Demo not available"
  209.   End Select
  210.   mousepointer = 0
  211. End Sub
  212. Sub DoDrawings ()
  213.   Dim i%, X%, Y%, nl$, s$
  214.   ' draw some text on draw control
  215.   vsDraw1.TextColor = RGB(255, 255, 255)
  216.   For i = 0 To 3600 Step 200
  217.     vsDraw1.x1 = 20
  218.     vsDraw1.y1 = 55
  219.     vsDraw1.TextAngle = i
  220.     vsDraw1.TextOut = "VSView"
  221.   Next
  222.   s = "VSView Demo"
  223.   vsDraw1.FontSize = 24
  224.   vsDraw1.TextOut = s
  225.   vsDraw1.TextColor = 0
  226.   vsDraw1.x1 = vsDraw1.x1 + 2
  227.   vsDraw1.y1 = vsDraw1.y1 - 2
  228.   vsDraw1.TextOut = s
  229.   ' draw a polygon on draw control
  230.   vsDraw1.PenColor = RGB(0, 0, 255)
  231.   s = ""
  232.   For X = 0 To vsDraw1.ScaleWidth Step 2
  233.     Y = 160 + Cos(X) * (X - vsDraw1.ScaleWidth / 2) / 3
  234.     s = s + Str(X) + Str(Y)
  235.   Next
  236.   vsDraw1.PolyLine = s
  237. End Sub
  238. Sub Form_Load ()
  239.   ' center form
  240.   Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2
  241.   Show
  242.   DoDrawings
  243. End Sub
  244. Sub Form_Unload (Cancel As Integer)
  245.   End
  246. End Sub
  247. Sub VSInForm1_ClickRButton (Button As Integer)
  248.   Select Case Button
  249.     Case 0
  250.       End
  251.     Case 1
  252.       MsgBox "VSView is only $99!  Call 1-510-547-7295 to order your copy today!"
  253.   End Select
  254. End Sub
  255.